COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "VIDTST"
C00004 ENDMK
C⊗;
BEGIN "VIDTST"
REQUIRE "VIDNIC.SAI[VIS,HPM]" SOURCE_FILE;
INTEGER I,J,B; REAL SX,SY; STRING A;

DDINIT; SCREEN(-1,-1,1,1);

WHILE TRUE DO
 BEGIN
 OUTSTR("PICTURE NAME:"); PIXDIM(INCHWL);
  BEGIN
  INTEGER ARRAY PIX[1:PICSIZ];
  GETPIX(PIX);
  OUTSTR("SCALE X,Y:"); SX←REALSCAN(A←INCHWL,B);  SY←REALSCAN(A,B);
  FOR I←PICBIT-1 STEP -1 UNTIL 0 DO
   BEGIN
   DRKEN; RECTAN(-SX,-SY,SX,SY);
   VIDEO(-SX,-SY,SX,SY,PIX[1],1 LSH I);
   FOR J←1 STEP 1 UNTIL 3 DO DPYUP(SYNMAP(I+6-PICBIT));
   END;
  END;
 END;

END;